home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE4 / ZAP / !Zap / Modules / !ZapJRF / Scripts / Routines < prev    next >
Text File  |  2002-05-08  |  417b  |  21 lines
  1. | Find routine names
  2. #IfModeN Basic
  3.  SEARCHBUF "\<\(\(REM \*\(PROC\|FN\)\)\|DEF\)"
  4. #Else
  5.  #IfModeN Assembler,Asm
  6.   SEARCHBUF "\<\(.\[^``|_]\|>\)"
  7.   | If you want ObjAsm style routine names, use :
  8.   |SEARCHBUF "\<\[A-Za-z]\[A-Za-z0-9]\*"
  9.  #Else
  10.   #IfModeN Email,NewMail,MailMode
  11.    SEARCHBUF "\<\(Subject:\|From:\)"
  12.   #Else
  13.    #IfModeN Code
  14.     SEARCHBUF "func:"
  15.    #Else
  16.     LISTFNS
  17.    #EndIf
  18.   #EndIf
  19.  #EndIf
  20. #EndIf
  21.